home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Options 8.xpl < prev    next >
Text File  |  2001-09-20  |  4KB  |  121 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Appearance Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.06"
  8. "TEXT 1"="huah!"
  9. "DESCRIPTION 1"="Some appearance settings of Internet Explorer you might consider changing."
  10. "DESCRIPTION 2"="NOTE #1: Hidding the "Options" menu will also disable the "Internet" applet inside Control Panel!"
  11. "DESCRIPTION 3"="NOTE #2: Disabling the "Set as Wallpaper" option will also disable the Wallpaper change through Control Panel -> Display -> Wallpaper!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Sebastien Maurice for some of this settings!"
  16. "COMMENT 2"="Thanks to Ian Moran [ian@allwebsales.be] for the idea"
  17.  
  18. dim rgVals()
  19. dim rgDesc()
  20.  
  21. ReDim rgVals(8)
  22. ReDim rgDesc(8)
  23.  
  24. 'All DW
  25. rgDesc(0)="Show ""File"" -> ""Open"" command"
  26. rgVals(0)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen"
  27.  
  28. rgDesc(1)="Show ""File"" -> ""New"" command"
  29. rgVals(1)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileNew"
  30.  
  31. rgDesc(2)="Show ""File"" -> ""Save""/""Save as"" command"
  32. rgVals(2)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs"
  33.  
  34. rgDesc(3)="Show ""Tools"" -> ""Options"" command"
  35. rgVals(3)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
  36.  
  37. rgDesc(4)="Show ""Edit"" -> ""Find"" command"
  38. rgVals(4)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFindFiles"
  39.  
  40. rgDesc(5)="Enable ""Favorites"" menu"
  41. rgVals(5)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites"
  42.  
  43. rgDesc(6)="Enable right-click HTML menu"
  44. rgVals(6)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu"
  45.  
  46. rgDesc(7)="Enable ""Theater Mode""/""Kiosk Mode"" (F11)"
  47. rgVals(7)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoTheaterMode"
  48.  
  49. rgDesc(8)="Enable ""Set as Wallpaper..."" menu on HTML menu"
  50. rgVals(8)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper"
  51.  
  52. sSpec1t="Enable ""Favorites"" IntelliMenu (hide unsused items)"
  53. sSpec1p="HKCU\Software\Microsoft\Internet Explorer\Main\FavIntelliMenus" 'yes/no
  54.  
  55.  
  56. 'Called when the Plugin is started
  57. SUB Plugin_Initialize  
  58.  for l=lbound(rgDesc) to ubound(rgDesc)
  59.      Call ReadSetting(l+1,rgVals(l),rgDesc(l))
  60.  next 
  61.  
  62.  '-----------SPECIAL------------------------
  63.  Call SetUIElement(ubound(rgDesc)+2,sSpec1t)
  64.  s=RegReadValue(sSpec1p)
  65.  if ucase(s)="YES" then Call SetUIElementEx(ubound(rgDesc)+2,true)
  66. END SUB
  67.  
  68. 'Called when the Plugin should validate the Data the user has entered
  69. SUB Plugin_CheckData(ElementIndex)
  70. END SUB
  71.  
  72. 'Called when the Plugin should apply the changes
  73. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  74.  for l=lbound(rgDesc) to ubound(rgDesc)
  75.      Call WriteSetting(l+1,rgVals(l))
  76.  next 
  77.  
  78.  
  79.  '-----------SPECIAL------------------------
  80.  if GetUIElementEx(ubound(rgDesc)+2)=true then
  81.     Call RegWriteValue(sSpec1p,"yes",1)
  82.  else
  83.     Call RegWriteValue(sSpec1p,"no",1)
  84.  end if
  85. END SUB
  86.  
  87.  
  88. 'Called when the Plugin is about to be removed from memory
  89. SUB Plugin_Terminate
  90. END SUB
  91.  
  92.  
  93.  
  94. Sub WriteSetting(ITM,VAL)
  95.  b=GetUIElementEx(ITM)
  96.  if b=false then
  97.     Call RegWriteValue(VAL,1,2)
  98.     Call Restart()
  99.  else
  100.     If RegValueExists(VAL) then
  101.        Call RegDeleteValue(VAL)
  102.        Call Restart()
  103.     end if
  104.  end if
  105. end sub
  106.  
  107. 'ITM = Number, VAL = RegVal Path, TXT = Text for UI
  108. Sub ReadSetting(ITM,VAL,TXT)
  109.  Call SetUIElement(ITM,TXT)
  110.  
  111.  i=RegReadValue(VAL)
  112.  if IsEmpty(i) then
  113.     Call SetUIElementEx(ITM,true)
  114.  else
  115.     if i<>1 then     
  116.        Call SetUIElementEx(ITM,true)
  117.     end if
  118.  end if
  119. end sub
  120.  
  121.